home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / Diskontieren ein (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  140 lines
  1. 8 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 9 CLR:DIMA$(15),A(15):GOTO1000
  3. 10 Z1=3:Z2=9:S=13:REM * MASKE LOESCHEN *
  4. 20 FORZ=Z1TOZ2:GOSUB90:PRINT"                          ":NEXT:IFC=0THENRETURN
  5. 30 Z1=12:Z2=20:C=0:GOTO20
  6. 50 RETURN
  7. 70 A$(12)=STR$(INT(A(12)*100+.5)):REM * RUNDEN
  8. 75 AB$=LEFT$(A$(12),LEN(A$(12))-2)+"."+RIGHT$(A$(12),2):RETURN
  9. 80 LOAD"MENUE",8:REM *LOAD MENUE
  10. 90 POKE214,Z:POKE211,S:SYS58732:RETURN:REM * CURSORPOSITION
  11. 95 A=55869:FORI=1597TO1622:POKEI,100:POKEA,1:A=A+1:NEXT:RETURN
  12. 100 REM * AUSWAHLROUTINE *
  13. 110 GOSUB90:PRINT"           [146]":FORI=1TO75:NEXTI
  14. 120 GOSUB90:PRINT""A$(Y)"[146]":FORI=1TO125:NEXT
  15. 130 GETG$:IFG$<>CHR$(133)ANDG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN110
  16. 140 IFG$=CHR$(133)ANDCTHENC=0:RETURN
  17. 150 IFG$=CHR$(13)THENGOSUB90:PRINT">[146]":RETURN
  18. 160 IFG$=CHR$(135)THEN190
  19. 170 Z=Z+SW:Y=Y+1:IFZ>Z2THENZ=Z1:Y=Y1
  20. 180 GOTO110
  21. 190 Z=Z-SW:Y=Y-1:IFZ<Z1THENZ=Z2:Y=Y2
  22. 195 GOTO110
  23. 200 REM * WAHL-FUSSZEILE *:S=0
  24. 210 Z=23:GOSUB90:PRINT"          [146]";:FORI=1TO75:NEXT
  25. 220 GOSUB90:PRINT""BA$(Y)"[146]";:FORI=1TO175:NEXT
  26. 230 GETG$:IFG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN210
  27. 240 IFG$=CHR$(13)THENGOSUB90:PRINT">[146]";:RETURN
  28. 250 IFG$=CHR$(135)THEN280
  29. 260 S=S+10:Y=Y+1:IFS>31THENS=0:Y=1
  30. 270 GOTO210
  31. 280 S=S-10:Y=Y-1:IFS<0THENS=30:Y=4
  32. 290 GOTO210
  33. 300 REM * EINGABEROUTINE *
  34. 310 GOSUB90
  35. 320 IN$=""
  36. 330 PRINT"[162][157]";
  37. 340 GETG$:IFG$=""THEN340
  38. 350 G=ASC(G$):IFG=13THEN460
  39. 360 IFG=13THENRETURN
  40. 370 IFG$<"0"ORG$>"9"THEN420
  41. 380 IN$=IN$+G$
  42. 390 PRINTG$;
  43. 400 IFLEN(IN$)>NTHENFORI=1TOLEN(IN$):PRINTCHR$(20);:NEXT:GOTO320
  44. 410 GOTO330
  45. 420 IFG=46THEN380
  46. 425 IFG$=CHR$(133)THEN9
  47. 430 IFG<>20THEN330
  48. 440 IFLEN(IN$)<1THEN330
  49. 450 IN$=LEFT$(IN$,LEN(IN$)-1):GOTO390
  50. 460 PN$="":FORI=1TO(10-LEN(IN$)):PN$=PN$+".":NEXT:PRINTPN$
  51. 470 IFLEN(IN$)<1THEN310
  52. 480 RETURN
  53. 999 :
  54. 1000 REM ** DIKONTIEREN **
  55. 1010 GOSUB5000:PRINTMA$
  56. 1020 A=55388:FORI=1076TO1906STEP40:POKEI,101:POKEA,1:A=A+40:NEXT
  57. 1030 A=55736:FORI=1464TO1474:POKEI,100:POKEA,1:A=A+1:NEXT
  58. 1040 A=55749:FORI=1477TO1502:POKEI,100:POKEA,1:A=A+1:NEXT
  59. 1050 Z=23:S=0:GOSUB90:PRINTMB$
  60. 1060 Z=3:GOSUB90:PRINT"[193]USWAHL :":PRINT"[163][163][163][163][163][163][163][163][163]"
  61. 1070 Z=5:FORI=1TO5:GOSUB90:PRINT""A$(I)"[146]":Z=Z+1:NEXT
  62. 1080 Z=5:Z1=Z:Z2=9:S=0:Y=1:Y1=Y:Y2=5:SW=1:C=0:GOSUB100:F=Y:IFF=5THEN80
  63. 1150 IFF=1THENA$(9)=KN$:A$(10)=P$:A$(11)=JA$:K=1
  64. 1160 IFF=2THENA$(9)=KB$:A$(10)=P$:A$(11)=JA$:K=1
  65. 1170 IFF=3THENA$(9)=KN$:A$(10)=KB$:A$(11)=JA$:K=0
  66. 1180 IFF=4THENA$(9)=KN$:A$(10)=KB$:A$(11)=P$:K=2
  67. 2000 REM * EINGABEMASKE *
  68. 2010 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163]"
  69. 2020 Z=5:FORI=9TO11:S=13:GOSUB90:PRINT""A$(I)"[146] : ";PM$
  70. 2030 Z=Z+2:NEXT:Z=23:S=0:GOSUB90:PRINTMC$
  71. 2040 Z=5:S=27:N=10:GOSUB300:A(9)=VAL(IN$)
  72. 2050 Z=7:GOSUB300:A(10)=VAL(IN$)
  73. 2060 Z=9:GOSUB300:A(11)=VAL(IN$)
  74. 2070 Z=13:S=13:GOSUB90:PRINT"[197]INGABE KORREKT ? (J/N):":GOSUB95
  75. 2080 Z=13:S=38:GOSUB90:PRINT"[162][157]";
  76. 2090 GETG$:IFG$<>"J"ANDG$<>"N"THEN2090
  77. 2100 PRINTG$:IFG$="J"THENY=1
  78. 2110 IFG$="N"THENY=0
  79. 2120 GETI$:IFI$<>CHR$(13)ANDI$<>CHR$(20)THEN2120
  80. 2130 IFI$=CHR$(20)THEN2080
  81. 2140 C=1:GOSUB10:IFY=0THEN2010
  82. 3000 REM * RECHNUNG *
  83. 3010 IFF=1THENA(12)=A(9)*(1/(1+(A(10)/100))^A(11))
  84. 3020 IFF=2THENA(12)=A(9)/(1/(1+(A(10)/100))^A(11))
  85. 3030 IFF=3THENA(12)=((A(9)/A(10))^(1/A(11))-1)*100
  86. 3040 IFF=4THENA(12)=LOG(A(9)/A(10))/LOG(1+(A(11)/100))
  87. 3500 REM * BILDSCHIRM
  88. 3510 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]"
  89. 3520 Z=5:FORI=9TO11:GOSUB90:PRINTA$(I)" :"A(I):Z=Z+2:NEXT
  90. 3530 Z=13:GOSUB90:PRINT"[210]ESULTAT :":Z=14:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]":GOSUB70
  91. 3540 Z=16:GOSUB90:PRINT""A$(F)"[146] :";:PRINTTAB(38-LEN(AB$));AB$
  92. 3550 PRINTTAB(39-LEN(AB$));:FORI=1TOLEN(AB$)-1:PRINT"=";:NEXT
  93. 3560 Z=20:GOSUB90:IFK=1THENPRINT"[193]USDRUCK IN [196][205][160]!":GOTO3580
  94. 3570 IFK=0THENPRINT"[193]USDRUCK IN [208]ROZENT !"
  95. 3580 Z=23:S=0:GOSUB90:FORI=1TO4:PRINT""BA$(I)"[146]";:NEXT
  96. 3590 Y=1:GOSUB200:IFY=4THEN80
  97. 3600 IFY=3THEN1010
  98. 3610 IFY=2THEN4500
  99. 4000 REM * AENDERUNG *
  100. 4010 C=1:GOSUB10
  101. 4020 Z=3:S=13:GOSUB90:PRINT"[193]ENDERUNG :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  102. 4030 Z=5:S=13:FORI=9TO11:GOSUB90:PRINT""A$(I)"[146] :";A(I):Z=Z+2:NEXT
  103. 4040 Z=23:S=0:GOSUB90:PRINTMD$;
  104. 4050 Z=5:Z1=Z:Z2=9:S=13:Y=9:Y1=Y:Y2=11:SW=2:C=1:GOSUB100
  105. 4060 IFC=0THENGOSUB10:GOTO3000
  106. 4070 Z=13:S=13:GOSUB90:PRINT""A$(Y)"[146] : "PM$:GOSUB95
  107. 4080 Z=23:S=0:GOSUB90:PRINTMC$;:Z=13:S=27:GOSUB300:A(Y)=VAL(IN$):GOTO4010
  108. 4500 REM * AUSDRUCK *
  109. 4505 TA$=CHR$(10):TB$=CHR$(16)
  110. 4510 OPEN4,4,7:PRINT#4,CHR$(14);TB$"10[196][201][211][203][207][206][212][201][197][210][197][206] [197][201][206][197][211][160][203][193][208][201][212][193][204][211]"
  111. 4520 PRINT#4,TB$"10---------------------------"TA$
  112. 4530 FORI=9TO11:PRINT#4,CHR$(15);TB$"10*** "A$(I)" : ";A(I):NEXT
  113. 4540 GOSUB70:PRINT#4,TA$;TB$"14"A$(F)" : "AB$
  114. 4550 PRINT#4,TB$"15";:FORI=1TO2+LEN(A$(F)+AB$):PRINT#4,"=";:NEXT
  115. 4560 PRINT#4,TA$;TA$;TA$
  116. 4570 PRINT#4,CHR$(13);TB$"10***   [197]NDKAPITAL UND [194]ARWERT WERDEN";
  117. 4580 PRINT#4," IN ' [196][205] ' AUSGEDRUCKT,"
  118. 4590 PRINT#4,TB$"16DER [218]INSSATZ IN ' % ' !"
  119. 4600 PRINT#4:FORI=1TO40:PRINT#4,"==";:NEXT:PRINT#4,TA$;TA$;TA$;TA$
  120. 4610 CLOSE4:FORI=56176TO56215:POKEI,0:NEXT:GOTO3580
  121. 5000 REM * VARIABLENLISTE *
  122. 5010 MA$="[147]      [196][201][211][203][207][206][212][201][197][210][197][206][160][197][201][206][197][211][160][203][193][208][201][212][193][204][211]      [146]"
  123. 5020 MB$=" [198]3 U. [198]5 - [215]AHL ! '[210][197][212][213][210][206]' - [197]INGABE ![146]"
  124. 5030 MC$="  [198]1 - [206]EU !      [199]EBEN [211]IE EIN !      [146]"
  125. 5040 MD$=" [198]1 - [210]ESULTAT !     [198]3 U. [198]5 - [215]AHL ! [146]"
  126. 5050 KN$=" [197]NDKAPITAL":P$="  [218]INSSATZ ":JA$="  [202]AHRE    ":PM$=".........."
  127. 5060 KB$="  [194]ARWERT  "
  128. 5110 BA$(1)="  [193]ENDERN "
  129. 5120 BA$(2)="  [203]OPIE   "
  130. 5130 BA$(3)="  [206]EU     "
  131. 5140 BA$(4)=" [205]ENUE    "
  132. 5510 A$(1)="  [194]ARWERT  "
  133. 5520 A$(2)=" [197]NDKAPITAL"
  134. 5530 A$(3)="  [218]INSSATZ "
  135. 5540 A$(4)="  [204]AUFZEIT "
  136. 5550 A$(5)="  [205]ENUE    "
  137. 5590 A$(13)="  [193]ENDERN  "
  138. 5600 A$(14)="  [210]ESULTAT "
  139. 5610 A$(15)="  [205]ENUE    ":RETURN
  140.